home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 15
/
Tiger_Disk_015_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
M umdrehen N
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
767b
|
18 lines
1 rem ^- >gemacht von * lukian *
10 poke53280,.:poke53281,.:printchr$(147):poke36879,59:
12 dim a%(5,5):forn=0to4:reada%:forz=0to5:a%(n,z)=a%:nextz,n:data28,5,31,158,30
14 goto32
16 print"du kannst die diskette jetzt umdrehen!!":ti$="000002":wait161,1
18 forn=5to1step-1:printspc(1)"[144]";spc(10);"[145]":a$=mid$(str$(n),2):next
20 forn=0to2:forz=1to1:print:forq=0to4
22 printchr$(a%(n,q));"[147]he! schlaf nicht ein!":form=1to50step-10
24 print" ":nextm
26 print"wie lange willst du noch warten?[145][145][145][145][145][145][145][145][145][145][145][145]":nextq,z,n:return
28 forn=5to1step-1:a%(x,n)=a%(x,n-1):next:a%(x,0)=a%(x,5):return
30 forn=5to1step-1:a%(n,x)=a%(n-1,x):next:a%(0,x)=a%(5,x):return
32 gosub16:fory=0to2:x=int(9*rnd(1)):on1+4*rnd(1)gosub28,30:gosub20:nexty
34 geta$:ifa$="1"thensys65234:x=val(a$):ifa$="2"thenx= 5:ifx=0goto36
36 ifx>5thenx=x-6:gosub30:goto38:x=5-x:gosub28:
38 gosub20:print"[147] du machst es nicht? na,gut! ":
40 ti$="000003":wait161,1:poke 1,54